home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / others / mapit.zip / INSTALL2.FIL < prev    next >
Text File  |  1993-05-05  |  8KB  |  325 lines
  1. ' Install script for MAPIT,  Copyright 1992 John B. Allison
  2. BACKGROUND 63    ' display cyan colored background (see color chart in docs)
  3. LANGUAGE ENGLISH
  4. BORDER 1                                   ' single line borders. 2 = double, 0 = no border
  5. TELESCOPE ON
  6. SHADOW ON
  7.  
  8. WINOPEN 0 2 30
  9. "                 MAPIT Installation               "      ' yellow text
  10.  
  11. WINOPEN 0 0 31
  12. "Shareware MAPIT requires less than 1 MB space on your hard drive."      
  13. ""
  14. "Where should this data be stored?"
  15.  
  16. WINUPDATE +12 +1 30
  17. "MAPIT"                            ' yellow text
  18.  
  19. PAUSE 200
  20. SPACE 1000                         ' 1 MB initial disk requirements.
  21.  
  22. '  Prompt for the drive to install to:
  23.  
  24. DRIVE C 0 21 31 15 0 14 79
  25. PATH \MAPIT 0 21 31 15 0 14 79
  26.  
  27. WINCLOSE
  28.  
  29. ' --------------------------------------------------------------------------
  30. '  Get load options from user.
  31.  
  32. EXIST ~1~2\DEMO.MP3          
  33. JUMP.NO LOAD_DATA1
  34.  
  35. WINOPEN 0 0 31
  36. "MAPIT data already exists on ~1~2."
  37. ""
  38. "Do you want to overwrite it?"
  39. ""
  40. ""
  41. WINUPDATE +14 +5 27            ' magenta text
  42. "(Y or N)"
  43.  
  44. ASK +22 +5
  45. WINCLOSE
  46. JUMP.YES LOAD_DATA1
  47. JUMP EARLY_OUT
  48.  
  49.  
  50. ' --------------------------------------------------------------------------
  51. '  Load data from distribution disks.
  52. :LOAD_DATA1
  53.  
  54. EXIST ~0\MAPITA.PAK           ' Should never fail.  Just read from drive.
  55. JUMP.YES BASEDATA1
  56.  
  57. WINOPEN 0 0 31
  58. "Insert MAPIT Disk 1 into drive ~0."
  59. ""
  60. "Enter Y to try again."
  61.  
  62. WINUPDATE +8 +3 30           ' yellow text
  63. "Y"
  64.  
  65. ASK +25 +3                    ' one method of providing a "conditional" jump
  66. WINCLOSE
  67. JUMP.YES LOAD_DATA1
  68. JUMP EARLY_OUT
  69.  
  70. :BASEDATA1
  71. UNPACK MAPITA.PAK 0 0 31 32 19 79
  72. JUMP.FAIL INSTALL_FAILURE
  73.  
  74. ' --------------------------------------------------------------------------
  75. '  Load second half from same or another disk.
  76. :LOAD_DATA2
  77.  
  78. EXIST ~0\MAPITB.PAK           ' Should never fail.  Just read from drive.
  79. JUMP.YES BASEDATA2
  80.  
  81. WINOPEN 0 0 31
  82. "Insert MAPIT Disk 2 into drive ~0."
  83. ""
  84. "Enter Y to continue."
  85.  
  86. WINUPDATE +8 +3 30           ' yellow text
  87. "Y"
  88.  
  89. ASK +25 +3                    ' one method of providing a "conditional" jump
  90. WINCLOSE
  91. JUMP.YES LOAD_DATA2            
  92. JUMP EARLY_OUT
  93.  
  94. :BASEDATA2
  95. UNPACK MAPITB.PAK 0 0 31 32 19 79
  96. JUMP.FAIL INSTALL_FAILURE
  97.  
  98. '--------------------------------------------------------------------------
  99. ' Concatinate .mp3 files.
  100.  
  101. SHELL
  102. "COPY /B ~1~2\DEMO.MP3+~1~2\DEMOB.MP3 ~1~2\DEMO.MP3"
  103. "DEL ~1~2\DEMOB.MP3"
  104.  
  105. ' -----------------------
  106. ' View the documentation?
  107. ' -----------------------
  108. :VIEW_INSTALL.TXT
  109. WINOPEN 0 0 31
  110. "README.DOC will be left in the directory ~1~2"
  111. ""
  112. "Would you like to view README.DOC on-line now?"
  113. ""
  114. ""
  115.  
  116. WINUPDATE +20 +5 27            ' magenta text
  117. "(Y or N)"
  118.  
  119. ASK +28 +5                     
  120. WINCLOSE                       
  121. JUMP.NO PRINT_INSTALL.TXT      ' again, skip the view command if the user
  122.                                ' hits the "N" key from the above ASK statement.
  123.  
  124. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  125. "Loading..."
  126. VIEW ~1~2\README.DOC 79 31
  127. WINCLOSE                      ' close the above window
  128.  
  129. ' ------------------------
  130. ' Print the documentation?
  131. ' ------------------------
  132. :PRINT_INSTALL.TXT
  133. WINOPEN 0 0 31
  134. "Would you like to print README.DOC?"
  135. ""
  136. ""
  137. WINUPDATE +15 +3 27           ' magenta text
  138. "(Y or N)"
  139.  
  140. ASK +23 +3                    ' one method of providing a "conditional" jump
  141.  
  142. WINCLOSE                      ' close the above window
  143. JUMP.NO VIEW_REGISTRATION
  144.  
  145. WINOPEN 0 0 31                ' printing large file takes a while ...
  146. ""
  147. "  Printing...  "
  148. ""
  149. PRINT ~1~2\README.DOC
  150. WINCLOSE                      ' close the above window
  151. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  152. JUMP VIEW_REGISTRATION        ' print successful, skip next
  153.  
  154. :PRINTER_ERROR                ' label for error condition
  155. WINOPEN 0 0 79                ' open the following window
  156. "Your printer is not responding.  Possible problems:"
  157. "   -- Printer is not turned on"
  158. "   -- Printer is out of paper"
  159. "   -- Printer is not attached to LPT1 (parallel port 1)"
  160. ""
  161. "Do you want to try to print again  (Y or N)?"
  162. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  163. WINCLOSE                      ' close this window
  164. JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print
  165.  
  166. ' ----------------------
  167. ' View the registration?
  168. ' ----------------------
  169. :VIEW_REGISTRATION
  170. WINOPEN 0 0 31
  171. "REGISTER.DOC will be left in the directory ~1~2"
  172. ""
  173. "MAPIT comes with much more detailed data.  Examine your options"
  174. "and register today."
  175. ""
  176. "Would you like to view REGISTER.DOC on-line now?"
  177. ""
  178. ""
  179. WINUPDATE +2 +3 30
  180. "MAPIT"                        ' yellow text
  181. WINUPDATE +28 +8 27            ' magenta text
  182. "(Y or N)"
  183.  
  184. ASK +36 +8                     
  185. WINCLOSE                       
  186. JUMP.NO PRINT_INSTALL_1       ' again, skip the view command if the user
  187.  
  188. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  189. "Loading..."
  190. VIEW ~1~2\REGISTER.DOC 79 31
  191. WINCLOSE                      ' close the above window
  192.  
  193. ' ------------------------
  194. ' Print the registration?
  195. ' ------------------------
  196. :PRINT_INSTALL_1
  197. WINOPEN 0 0 31
  198. "Would you like to print REGISTER.DOC?"
  199. ""
  200. ""
  201. WINUPDATE +15 +3 27           ' magenta text
  202. "(Y or N)"
  203.  
  204. ASK +23 +3                    ' one method of providing a "conditional" jump
  205.  
  206. WINCLOSE                      ' close the above window
  207. JUMP.NO CHECK_HARDWARE
  208.  
  209. WINOPEN 0 0 31                ' printing large file takes a while ...
  210. ""
  211. "  Printing...  "
  212. ""
  213. PRINT ~1~2\REGISTER.DOC
  214. WINCLOSE                      ' close the above window
  215. JUMP.FAIL PRINTER_ERROR_1     ' jump on fatal error
  216. JUMP CHECK_HARDWARE           ' print successful, skip next
  217.  
  218. :PRINTER_ERROR_1              ' label for error condition
  219. WINOPEN 0 0 79                ' open the following window
  220. "Your printer is not responding.  Possible problems:"
  221. "   -- Printer is not turned on"
  222. "   -- Printer is out of paper"
  223. "   -- Printer is not attached to LPT1 (parallel port 1)"
  224. ""
  225. "Do you want to try to print again  (Y or N)?"
  226. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  227. WINCLOSE                      ' close this window
  228. JUMP.YES PRINT_INSTALL_1      ' y key pressed, print
  229.  
  230. '--------------
  231. :CHECK_HARDWARE
  232. '--------------
  233. VIDEO EGA
  234. JUMP.YES CK_MOUSE
  235.  
  236. WINOPEN 0, 0, 31
  237. "MAPIT requires a graphics display."
  238. ""
  239. "An EGA or better is recommended."
  240. ""
  241.  
  242. WINUPDATE +2 +1 30            ' yellow text
  243. "MAPIT"
  244.  
  245. WAIT 2 4
  246.  
  247. :CK_MOUSE
  248. MOUSE 0.0
  249. JUMP.YES EXIT
  250.  
  251. WINOPEN 0, 0, 31
  252. "MAPIT requires a MOUSE."
  253. ""
  254. "This system has no mouse enabled."
  255. ""
  256. "You must install one before running MAPIT."
  257. ""
  258.  
  259. WINUPDATE +2 +1 30            ' yellow text
  260. "MAPIT"
  261. WINUPDATE +37 +5 30           ' yellow text
  262. "MAPIT"
  263.  
  264. WAIT 2 6
  265. JUMP FINI
  266.  
  267. ' ----------------------
  268. ' display closing window
  269. ' ----------------------
  270. :EXIT
  271. WINOPEN 0 0 31
  272. "MAPIT installation is complete."
  273. ""
  274. "Would you like to run MAPIT now?"
  275. ""
  276. ""
  277.  
  278. WINUPDATE +2 +1 30            ' yellow text
  279. "MAPIT"
  280. WINUPDATE +24 +3 30            ' yellow text
  281. "MAPIT"
  282.  
  283. WINUPDATE +15 +5 27            ' magenta text
  284. "(Y or N)"
  285.  
  286. ASK +23 +5
  287. WINCLOSE
  288. JUMP.NO FINI
  289.  
  290. :GO_DEMO
  291. WINOPEN 0 0 31
  292. "Copying MAPITDEM.MP3 to EXTENDED.MP3 and"
  293. ""
  294. "running MAPIT."
  295. WINUPDATE +10 +3 30            ' yellow text
  296. "MAPIT"
  297.  
  298. PAUSE 500
  299.  
  300. PROMPT OFF      ' Turn off copy prompts.
  301. COPY ~1~2\MAPITDEM.MP3 ~1~2\EXTENDED.MP3 0 0 31
  302.  
  303. RUN ~1~2\MAPITDEM                   ' Never to return.
  304.  
  305. ' ------------------------
  306. ' exit the system normally
  307. ' ------------------------
  308. :EARLY_OUT
  309.  
  310. :FINI
  311. END
  312.  
  313. :INSTALL_FAILURE
  314. WINOPEN 0 0 79
  315. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  316. ""
  317. "Possible reasons:"
  318. "   -- The floppy disk was removed prior to completion."
  319. "   -- The floppy disk was damaged during shipping."
  320. "   -- Your disk drive is out of alignment."
  321. ""
  322. "      Press [Enter] to Quit."
  323. WAIT 47 15
  324. JUMP EARLY_OUT
  325.